home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programmer's Power Pack / Delphi Volume 1.iso / e_to_l / lookupdb / mainform.dfm / mainform.txt
Encoding:
Text File  |  1996-09-15  |  1.6 KB  |  87 lines
  1. object Form1: TForm1
  2.   Left = 272
  3.   Top = 116
  4.   Width = 474
  5.   Height = 300
  6.   Caption = 'Form1'
  7.   Font.Color = clWindowText
  8.   Font.Height = -13
  9.   Font.Name = 'System'
  10.   Font.Style = []
  11.   PixelsPerInch = 96
  12.   TextHeight = 16
  13.   object LookupDBCombo1: TLookupDBCombo
  14.     Left = 44
  15.     Top = 40
  16.     Width = 145
  17.     Height = 24
  18.     DisplayValue = '1'
  19.     LookupField = 'CompanyID'
  20.     LookupDisplay = 'CompanyName'
  21.     LookupSource = Table1
  22.     Style = csDropDownList
  23.     ItemHeight = 16
  24.     TabOrder = 0
  25.     OnChange = LookupDBCombo1Change
  26.   end
  27.   object Edit1: TEdit
  28.     Left = 240
  29.     Top = 40
  30.     Width = 121
  31.     Height = 24
  32.     TabOrder = 1
  33.     Text = 'Edit1'
  34.   end
  35.   object DBGrid1: TDBGrid
  36.     Left = 8
  37.     Top = 96
  38.     Width = 445
  39.     Height = 105
  40.     DataSource = DataSource1
  41.     TabOrder = 2
  42.     TitleFont.Color = clWindowText
  43.     TitleFont.Height = -13
  44.     TitleFont.Name = 'System'
  45.     TitleFont.Style = []
  46.   end
  47.   object DBNavigator1: TDBNavigator
  48.     Left = 80
  49.     Top = 232
  50.     Width = 241
  51.     Height = 25
  52.     DataSource = DataSource1
  53.     TabOrder = 3
  54.   end
  55.   object TDataSource
  56.     DataSet = Table1
  57.   end
  58.   object TDataSource
  59.     DataSet = Table1
  60.   end
  61.   object Database1: TDatabase
  62.     Connected = True
  63.     DatabaseName = 'LookupDemo'
  64.     DriverName = 'STANDARD'
  65.     Params.Strings = (
  66.       'PATH=C:\LOOKUPDB')
  67.     Left = 20
  68.     Top = 12
  69.   end
  70.   object Table1: TTable
  71.     Active = True
  72.     DatabaseName = 'LookupDemo'
  73.     IndexFieldNames = 'CompanyID'
  74.     TableName = 'COMPANY.DB'
  75.     Left = 56
  76.     Top = 12
  77.   end
  78.   object TDataSource
  79.     DataSet = Table1
  80.   end
  81.   object DataSource1: TDataSource
  82.     DataSet = Table1
  83.     Left = 8
  84.     Top = 64
  85.   end
  86. end
  87.